home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / patch / BBase_040_pch.lha / BBase13a_040pch / Update_ita < prev    next >
Text File  |  1998-02-06  |  4KB  |  117 lines
  1. ;   ---------------------------------------------
  2. ;   Update BancaBase 1.3a to 040 enhanced version
  3. ;   ---------------------------------------------
  4. ;   Description:
  5. ;
  6. ;   Commodore Installer Script for patch
  7. ;   BancaBase V 1.3a 040 enhanced version
  8. ;   $VER: 1.00 (c) 1998 by Stefano Dardari
  9.  
  10. ; some useful variables
  11.     (set 
  12.         newline         "\n"
  13.         #prg            "BancaBase"
  14.         #prgnew         "BancaBase.new"
  15.         #prg040         "BancaBase040"
  16.         #prgicon        "BancaBase.info"
  17.         #prg040icon     "BancaBase040.info"
  18.         #bbpatchname     "BancaBase040.pch"
  19.         #bb3-path       "BancaBase/"
  20.         #bb3-dest       "SYS:"
  21.         #BB3size        351772
  22.     )
  23.  
  24. ; some strings
  25. (set #omp (cat "\nUn momento prego..." newline))
  26.  
  27. (set #installtext (cat "Benvenuti nello script di AGGIORNAMENTO di BancaBase.\n\nBancaBase3 V 1.3a (C) 1997/98 by Stefano Dardari\nAll rights reserved\n\n040 Enhanced UPDATE script V 1.0\n"))
  28. (set #BB3dest-prompt "Prego selezionare la directory dov'è attualmente installata la versione 1.3a (68000) di BancaBase.\n(Vedere l'Aiuto per ulteriori dettagli)")
  29. (set #BB3dest-help (cat "Si deve indicare il percorso completo nel quale è stato installato il programma BancaBase per 68000.\n\nNOTA : per applicare questo aggiornamento è necessario disporre della versione 1.3a REGISTRATA di BancaBase, installata su HardDisk."))
  30. (set #BB3end (cat "Aggiornamento completato. Leggere il file readme prima di iniziare."))
  31. (set #msgpchfailed "ATTENZIONE!!!\n\nIl Patch non è stato applicato a causa di un errore.\n\nAssicurarsi di applicare il patch esclusivamente alla versione 1.3a (68000) REGISTRATA di BancaBase, con qualsiasi altra versione il patch non può essere applicato.\nSe avete una versione 1.3a registrata e non riuscite ad applicare questo patch contattate l'autore.")
  32.  
  33. (welcome #installtext)
  34.  
  35. (procedure set_dir
  36.    (set #bb3-dest
  37.       (askdir
  38.          (prompt #BB3dest-prompt)
  39.          (help #BB3dest-help)
  40.          (default #bb3-dest)
  41.          (newpath)
  42.       )
  43.    )
  44. )
  45.  
  46. (set_dir)
  47. (set #dest-path #bb3-dest)
  48. (set @default-dest #dest-path)
  49.  
  50.  
  51. (if (= 0 (exists #dest-path (noreq)))
  52.    (
  53.       (set #file-exist (cat "Spiacente ma la directory " #dest-path " non esiste.\n\nSelezionare la directory destinazione contenente la versione 1.3a di BancaBase.\n"))
  54.       (message #file-exist)
  55.       (set_dir)
  56.       (set #dest-path #bb3-dest)
  57.       (set @default-dest #dest-path)
  58.    )
  59. )
  60.  
  61. (complete 10)
  62.  
  63. (set #dst-path #dest-path)
  64. (set #dst (tackon #dest-path #prg))
  65.  
  66. (if (exists #dst)
  67.     (
  68.     (set size (getsize #dst))
  69.     (if (= size #BB3size)
  70.        (message ("\n\nTrovato %s (%ld bytes)\n\nIl patch è applicabile." #dst size))
  71.        )
  72.     )
  73. )
  74.  
  75. (if (not(= size #BB3size))
  76.     (abort #msgpchfailed)
  77.     )
  78.  
  79.  
  80. ;(working #omp (cat "\n\nScompatto il file di patch ...\n" #dest-path))
  81.  
  82. ;(run ("lha -x x "#bbprogname" "#dest-path))
  83.  
  84. (complete 50)
  85.  
  86. (working #omp "\n\n\nEseguo l'aggiornamento del software ...\nattendere prego ...")
  87.  
  88. (set #pchcommand (cat "spatch -o" (tackon #dest-path #prg040) " -p" #bbpatchname " " (tackon #dest-path #prg)))
  89. ;(message #pchcommand)
  90.  
  91. (set a (run #pchcommand))
  92. ;(message ("\nIl patch ritorna :%ld" a))
  93.  
  94. (if (not(= a 0))
  95.     (abort #msgpchfailed)
  96.     )
  97.  
  98. (complete 90)
  99.  
  100. (rename (tackon #dest-path #prgicon) (tackon #dest-path #prg040icon))
  101. (delete (tackon #dest-path #prg))
  102.  
  103. (complete 100)
  104.  
  105. ; The last message
  106. (set end_text (cat "\nComplimenti !!!\n\n"
  107.               "Hai appena potenziato la tua versione di BancaBase con una ottimizzata per i processori 68040 che rendera' le normali operazioni molto piu' fluide e veloci!!!\n"
  108.               "Spero che BancaBase ti piaccia!\n"
  109.               "Non esitare a mandarmi commenti, suggerimenti e bugreports.\n\n"
  110.               "Le registrazioni sono BENVENUTE !!! :))"))
  111.  
  112. ; the end
  113. (set @default-dest #dest-path)
  114.     (exit end_text)
  115. ;EOF
  116.  
  117.